sieve.el: Make the buffer to edit unmodified initially (bug#24423)

* lisp/net/sieve.el (sieve-edit-script):
Make the buffer to edit be not modified-p initially (bug#24423).

diff --git a/lisp/net/sieve.el b/lisp/net/sieve.el
index 2046e53697daa8f4d3f04953223e2905e79a56b8..d126d84c5de632dce22bcf9866a898c0cbd357e6 100644 (file)
--- a/lisp/net/sieve.el
+++ b/lisp/net/sieve.el
@@ -207,7 +207,8 @@ require \"fileinto\";
              err)
          (setq err (sieve-manage-getscript name newbuf sieve-manage-buffer))
          (switch-to-buffer newbuf)
-         (unless (sieve-manage-ok-p err)
+         (if (sieve-manage-ok-p err)
+             (set-buffer-modified-p nil)
            (error "Sieve download failed: %s" err)))
       (switch-to-buffer (get-buffer-create "template.siv"))
       (insert sieve-template))